home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / ElectricAlias / Aliases / aliases.Pas < prev    next >
Pascal/Delphi Source File  |  1994-06-18  |  1KB  |  28 lines
  1. # FILE: aliases.Pas
  2. #
  3. # DESC: Aliases for Pascal mode
  4. #
  5. # LAST UPDATE: 01/05/93 8:10:35 AM 
  6.  
  7.     electricAlias-def ÑPas ÑPas ÑPas
  8.     electricAlias-var Pas bb "begin"
  9.     electricAlias-var Pas eb "end"
  10.     electricAlias-var Pas bc "\{"
  11.     electricAlias-var Pas ec "\}"
  12.     electricAlias-def ÑPas function  "ñ╟askalias {function name} NAME╚function ñ{NAME}(Ñ):Ñ;\rÑbegin\r\tÑ\rendñ{bc}function ñ{NAME}ñ{ec}\r\rÑ"
  13.     electricAlias-def ÑPas procedure "ñ╟askalias {procedure name} NAME╚procedure ñ{NAME}(Ñ);\rÑbegin\r\tÑ\rendñ{bc}procedure ñ{NAME}ñ{ec}\r\rÑ"
  14.     electricAlias-def ÑPas label     "label Ñ;Ñ"
  15.     electricAlias-def ÑPas const     "const Ñ;Ñ"
  16.     electricAlias-def ÑPas type      "type Ñ;Ñ"
  17.     electricAlias-def ÑPas var       "var Ñ;Ñ"
  18.     electricAlias-def ÑPas record    "record\r\tÑ\rend;Ñ"
  19.     electricAlias-def ÑPas begin     "begin\r\tÑ\rendÑ"
  20.     electricAlias-def ÑPas for       "for Ñ := Ñ to Ñ do ñ{bb}\r\tÑ\rñ{eb} ñ{bc}forñ{ec}Ñ"
  21.     electricAlias-def ÑPas while     "while (Ñ) do ñ{bb}\r\tÑ\rñ{eb} ñ{bc}whileñ{ec}Ñ"
  22.     electricAlias-def ÑPas repeat    "repeat\r\tÑ\runtil (Ñ);Ñ"
  23.     electricAlias-def ÑPas if        "if (Ñ) then ñ{bb}\r\tÑ\rñ{eb} ñ{bc}ifñ{ec}Ñ"
  24.     electricAlias-def ÑPas elseif    "\bñ{eb} else if (Ñ) ñ{bb}\rÑ"
  25.     electricAlias-def ÑPas else      "\bñ{eb} else ñ{bb}\rÑ"
  26.     electricAlias-def ÑPas case      "case  (Ñ)\r\tÑ : begin\r\t\tÑ\r\tend\r\rend ñ{bc}caseñ{bc}Ñ"
  27.  
  28.